home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 096 / insertcr.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  828 b   |  17 lines
  1. 2  INPUT"INPUT THE FILENAME THAT WAS DOWNLOADED WITHOUT CR (d:filename)  ",A$
  2. 4  INPUT"INPUT THE NEW NAME FOR THE DOWNLOADED FILE (d:filename)  ",B$
  3. 5  ' CHANGE THE INPUT AND OUTPUT NAMES TO THE NAMES OF THE FILES YOU WANT AS
  4. 6  ' INPUT AND OUTPUT  PRIMARILY USED TO COPY FILES WITH NO CARRIAGE RETURNS
  5. 7  ' IN THEM SO THAT YOU CAN EDLIN THEM   CONTRIBUTED BY DON WITHROW
  6. 10  OPEN A$ FOR INPUT AS #1
  7. 20  OPEN B$ FOR OUTPUT AS #2
  8. 30  IF EOF(1) THEN 100 ELSE LINE INPUT #1, THELIN$
  9. 40  PRINT #2, THELIN$
  10. 50  GOTO 30
  11. 100  CLOSE:END
  12. 120  'This program will add Carriage Returns to a downloaded file that does
  13. 130  'not appear to have them when you try to list it using the DOS TYPE
  14. 140  'command. The file has to be a basic program, patch or subroutine.
  15. 150  'After adding CRs to the file you can then use EDLIN to remove direct
  16. 160  'statements from the file.
  17.